Public Class Comment
	Inherits TcKs.MSOffice.Common.ChildObjectWrapperBase
	
	Friend Sub New ( ByVal nativeObject As Global.System.Object,  ByVal rootObject As Global.TcKs.MSOffice.Common.RootObjectWrapperBase )
		MyBase.New ( nativeObject, rootObject )
	End Sub 
	
	Public Function [Text]( aText As Global.System.Object, aStart As Global.System.Object, aOverwrite As Global.System.Object ) As Global.System.String
		Dim tmp_Text As Global.System.Object = Global.TcKs.MSOffice.Common.WrapperHelper.GetWrappedObjectIfCan( aText )
		Dim tmp_Start As Global.System.Object = Global.TcKs.MSOffice.Common.WrapperHelper.GetWrappedObjectIfCan( aStart )
		Dim tmp_Overwrite As Global.System.Object = Global.TcKs.MSOffice.Common.WrapperHelper.GetWrappedObjectIfCan( aOverwrite )
		Dim result As Global.System.Object = MyBase.WrappedObject.[Text]( tmp_Text, tmp_Start, tmp_Overwrite )
		Return result
	End Function 
	
	Public Sub Delete(  )
		MyBase.WrappedObject.Delete(  )
	End Sub 
	
	Public Function [Next](  ) As Global.TcKs.MSOffice.Excel.Comment
		Dim result As Global.System.Object = MyBase.WrappedObject.[Next](  )
		Dim ret As New Global.TcKs.MSOffice.Excel.Comment( result, Me.RootObject )
		Return ret
	End Function 
	
	Public Function Previous(  ) As Global.TcKs.MSOffice.Excel.Comment
		Dim result As Global.System.Object = MyBase.WrappedObject.Previous(  )
		Dim ret As New Global.TcKs.MSOffice.Excel.Comment( result, Me.RootObject )
		Return ret
	End Function 
	
	Public ReadOnly Property Application As Global.TcKs.MSOffice.Excel.Application
		Get 
			Dim ret As Global.TcKs.MSOffice.Excel.Application =  Me.FindTopRootObject()
			Return ret
		End Get 
	End Property 
	
	Public ReadOnly Property Creator As Global.TcKs.MSOffice.Excel.XlCreator
		Get 
			Return MyBase.WrappedObject.Creator
		End Get 
	End Property 
	
	Public ReadOnly Property Parent As Global.System.Object
		Get 
			Return MyBase.WrappedObject.Parent
		End Get 
	End Property 
	
	Public ReadOnly Property Author As Global.System.String
		Get 
			Return MyBase.WrappedObject.Author
		End Get 
	End Property 
	
	Public ReadOnly Property Shape As Global.TcKs.MSOffice.Excel.Shape
		Get 
			Dim nativeObject As Global.System.Object = MyBase.WrappedObject.Shape
			Dim ret As New Global.TcKs.MSOffice.Excel.Shape( nativeObject, Me.RootObject )
			Return ret
		End Get 
	End Property 
	
	Public Property Visible As Global.System.Boolean
		Get 
			Return MyBase.WrappedObject.Visible
		End Get 
		Set ( ByVal Value As Global.System.Boolean )
			MyBase.WrappedObject.Visible = Value 
		End Set 
	End Property 
	
End Class 
